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Using  IMPURE 

DEAN  PIDGEON  AND  PATRICK  B.  BLACK 


INTRODUCTION 

This  report  describes  the  procedures  necessar>'  to 
determine  the  mole  percent  purity  of  the  Standard 
Analytical  Reference  Materials  (SARMs)  suitable  for 
analysis  by  differential  scanning  calorimetry  (DSC). 
The  sampling  method,  data  acquisition  procedure  and 
statistical  analysis  used  in  this  work  are  adaptations  of 
standard  methodologies  found  in  the  literature.  As  there 
already  exists  abundant  literature  on  the  implementa¬ 
tion  of  thermal  techniques  for  the  determination  of 
purity,  our  objective  is  to  present  a  simple  package — 
IMPURE — that  should  be  useful  to  the  quality  control 
community. 

This  report  first  presents  a  detailed  description  of 
the  required  interpretation  of  the  data  needed  to  apply 
van't  Hoff's  equation  for  determining  molar  purity. 
Also  given  is  a  discussion  of  differential  scanning 
calorimetry  that  emphasizes  the  necessary  instrument 
calibration  to  measure  heat  of  fusion  and  melting  point 
temperature.  Finally  the  recommended  laboratory  pro¬ 
cedures  for  purity  determination  are  presented. 

While  this  report  is  primarily  concerned  with  the 
SARMs.  it  should  be  equally  applicable  toother  crystal¬ 
line  organic  compounds  that 

•  Have  a  molar  purity  greater  than  98  mol  ; 

•  Have  impurities  that  are  both  insoluble  in  the 
solid  and  soluble  in  the  melt  (i.e.  they  do  not  form 
solid  .solutions); 

•  Do  not  decompose  near  their  melting  tempera¬ 
tures;  and 

•  Do  not  occur  in  multiple  cry  stal  forms. 


IMPLEMENTATION  OF  VAN’T  HOFF’S 
EQUATION 

When  a  substance  is  heated,  the  entire  impurity  is 
assumed  to  melt  at  the  eutectic  temperature  0[;.  with  the 


remaining  solid  phase  composed  only  of  pure  substance 
(Fig.  1 ).  As  the  temperature  increases  from  the  eutectic 
temperature  to  the  melting  temperature  of  the  substance 
Gp,  the  mole  fraction  of  the  impurity  in  the  liquid  phase 
X2  is  constantly  lowered  as  the  pure  substance  melts 
(Widmann  and  Sommerauer  1988).  The  mole  fraction 
of  impurity  Xs  in  a  melted  fraction  F  of  the  major 
component  is  simply 


X2  =X2*  1/F  <’) 

where  X2»  is  the  total  mole  fraction  of  impurity  in  the 
original  substance.  The  influence  of  a  small  amount  of 
impurity  on  the  change  of  the  melting  temperature  of  a 
pure  compound  from  Goto  Gp  is  described  by  van 't  Hoff  s 
equation; 


9.)  -  Qp  Qq: 

X2  AL 


{2) 


where  Go  is  the  melt  ing  temperature  of  a  pure  compound 
and  9p  is  the  melting  temperature  resulting  from  the 
inclusion  of  X2  amount  of  impurity.  R  (cal  mol“'  deg“‘ ) 
is  the  gas  constant,  and  AT  (cal  mol“l )  is  the  latent  heat 
of  fusion  of  the  pure  compound.  Substituting  eq  2  into 
eq  1  gives  a  linear  equation  relating  the  fraction  melted 
Fj  to  the  temperature  Gp,; 


9fi 


=  9 


O  ~ 


X2*  Rq 
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A  plot  of  inverse  fraction  vs  temperature  should  be 
linear,  with  the  intercept  being  the  melting  point  tem¬ 
perature  of  the  pure  major  component  (Fig.  2).  It  is 
usually  found,  though,  that  the  plot  is  concave  (Fig.  .V), 
Several  rationalizations  for  this  deviation  from 
nonIinearityexist(Perkin-Elmcrn.d..  Plato  and  Glasgow 
1969.  Wiedeman  et  al.  1984).  The  simplest  scenano  is 
the  “missing  area"  argument. 


Temperoture 

Fi^^iire  I .  Melting  curve  from  DSC  slioi\ini>  eutectic  melting  of  an  impurity. 


Since  melting  curve  data  are  commonly  collected 
at  emperatures  above  the  eutectic  temperature  (0  >  Gg), 
there  is  a  constant  amount  of  heat  omitted.  This  heat 
mu.'.t  be  added  to  the  measured  heat  tocorrectly  apply  eq 
i  Widmann  and  Sommerauer  1988).  As  demonstrated 
below,  the  amount  of  heat,  on  a  mass  basis,  is  directly 
proportional  to  the  area  beneath  the  melting  curve,  .so 
heat  and  area  are  interchangeable.  The  fractions  are  then 
calculated  based  on  this  additional  area  K: 

1  _  dlulJtA  (4) 

F*  A,+ K 


where  /f„>|  and  Aj  are  the  total  and  partial  areas  beneath 
the  melting  curve  corresponding  to  total  and  panial 
heats, on  amass  basis.  Substituting  intoeq  3  gives  anew 
equation: 

=  J-  , 

AL* 

where  Af^  is  the  molar  latent  heat  of  fusion  based  on  the 
corrected  total  area. 

Two  approaches  are  commonly  used  to  detennine 
the  value  of  K:  the  trial-and-error  approach  (Perkin- 


l/Fraction 

I-  lyurc  2.  I-  i  iH  tioii.s  curve  corrcctcil  (or  lost  arcit. 


1  /  F  roction 


Figure  .i’.  Fractions  curve  not  corrected  for  lost 


Elmer  n.d.,  Plato  and  Glasgow  1969)  and  the  multiple- 
linear-regression  techniciue  ot  the  American  Society  of 
Testing  and  Materials  (Wiedeman  et  al,  1984).  The 
latter  is  obtained  by  adjusting  eq  5  to  obtain 

A,  =  -K  +  0o  —  +  - - - -  (6) 

0F  M  Of 

where  M  is  the  molecular  weight  and  m  is  the  sample 
mass.  Note  that  eq  6  contains  ni/M  instead  of  the  incor¬ 
rect  .V//»!  of  Wiedeman  etal.  (1984).  Applying  multiple 
linear  regression  to  data  in  the  form  of  eq  6  produces 
val  ues  for  A",  6„  and  AN*.  The  results  of  this  process  show 
how  the  uncorrected  data  of  Figure  3  are  adjusted  to 
obtain  the  information  in  Figure  2. 

The  data  analyzed  by  the  program  IMPURE,  di.s- 
cussed  below  and  listed  in  Appendix  A,  first  applies  a 
multiple  linear  regression  to  eq  6  to  obtain  values  of  A", 
9,,  and  and  then  uses  the  calculated  value  of  A  in  eq 
3  to  obtain  other  values  for  0,,  and  Ai*.  Both  methods 
should  give  similar  results. 

DIFFERENTIAL  SCANNING 
CALORIMETRY 

There  are  several  thermal  analysis  techniques 
available  that  measure  changes  in  physical  and  chemi¬ 
cal  properties  of  materials  as  a  function  of  time  and 
temperature.  By  far  the  most  infomiative  fordetennin- 
ing  chemical  purity  is  differential  scanning  calorimetry 
(DSC).  In  DSC  the  differential  heat  flow  into  or  out  of 
a  . sample  (i.e.  endothermic  or  cxothenTiic),ascompared 
w  ith  a  reference,  is  measured  as  the  temperatures  ot  the 
sample  and  reference  are  changed.  A  typical  DSC 
apparatus  contains  two  test  cells:  one  cell  holds  a 
reference,  usually  an  empty  sample  container,  and  the 
other  cell  holds  the  sample  in  ns  container. 

,A  common  method  of  operating  a  DSC  apparatus 
is  the  two-cycle  mode,  such  as  used  by  the  Perkin-Elmer 
DSC-4.  The  cycling  begins  with  both  cells  in  thennal 
equihbrium.  For  the  case  of  heating,  the  first  cycle 
r'onsists  of  constantly  measuring  the  temperatures  of 
both  cells,  averaging  these  temperatures,  then  adding 
equal  amounts  ot  heat  to  both  cells  to  bring  theiraverage 
termperature  to  the  desired  value.  The  second  cycle  then 
invrrlves  the  application  of  enough  heat  tothe  cell  with 
the  lowest  temperature  to  briirg  the  two  cells  into 
thermal  equilibrium  again. 

The  DSC  appar.itus  is  programmer!  to  run  through 
.1  ilesired  linear  temperature  ramp.  The  programming 
iin  lives  choosing  a  starting  and  ending  temperature  as 
well  ,is  a  he.it  mg  .ind  cooling  r.ite.  Again,  for  the  case  of 
heating,  the  run  begins  w  ith  both  cells  m  thermal  eqrn 
librnini  at  the  desired  starting  temper.iture.  The  two- 


cycle  process  then  starts  with  the  temperat  ure  at  the  end 
of  each  cycling  step  detemiined  by  the  time  since  ibe 
start  multiplied  by  the  heating  rate  plus  the  starting 
temperature.  This  ramping  of  temperature  continues 
until  enough  time  has  elapsed  to  reach  the  desired 
ending  temperature. 

The  .sole  output  of  the  DSC  apparatus  is  a  voltage 
whose  magnitude  is  proportional  to  the  thermal  power 
added  in  the  .second  cycle  and  w  hose  sign  denotes  the 
direction  of  flow.  The  temperature  is  inferred  by  keep¬ 
ing  track  of  the  clasped  time,  the  starting  temperature 
and  the  heating  or  cooling  rates.  Since  the  DSC  output 
isthemtal  power  d///dr,  the  integrated  output  with  time 
is  therefore  the  total  amoung  of  heat  added  to  or  re¬ 
moved  from  the  sample  AH  =  j  (dHIdt)  d/.  This  allows 
the  heats  of  transition  and  the  specific  heats  to  be 
measured  directly. 

DSC  calibration  and  operation 

Since  the  equipment  used  in  DSC  is  not  exact,  the 
temperature  and  energy  output  should  always  be  cali¬ 
brated.  This  is  commonly  done  by  measuring  the  melt¬ 
ing  characteristics  of  a  highly  pure  standard  such  as 
indium  and  making  suitable  adjustments  to  the  hard¬ 
ware  or  software.  These  adjustments  are  perfomied  by 
the  computer  program  IMPURE,  listed  in  Appendix  ,\. 
based  on  the  operator's  subjective  decisions. 

The  energy  output  for  the  DSC  is  calibrated  by 
finding  a  conversion  factor  that  converts  the  measured 
fusion  peak  area  to  the  know  n  heat  of  fusion,  taking  into 
account  the  device  setting.  A  typical  fusion  curve  for 
indium  is  presented  in  Figure  4.  The  area  associated 
with  the  latent  heat  of  fusion  is  that  area  that  begins  and 
ends  where  there  is  significant  deviation  from  baseline 
conditions.  The  ordinate  units  are  giv  en  in  dimension¬ 
less  A/D  units.  These  values  ure  output  from  the  analog- 
to-digital  conversion  of  D.SC  voltage,  which  make  them 
directly  proportional  to  the  differential  thermal  energy 
U>  the  specimen.  The  abscissa  units  are  m  kelvins. 
previously  detemiined  from  the  time  elapsed  since  the 
start  of  the  run,  the  initial  temperature  and  the  heating 
rate.  (The  area  is  actually  calculated  with  the  abscissa  in 
time  unit.s,  but  the  temperature  scale  is  visually  superior.) 

The  area  is  detemiined  in  several  steps  by  theoper- 
ator  and  the  program  IMPURE.  First  the  apparent  base¬ 
lines  before  and  after  the  melting  curve  are  detemiined 
by  fitting  I  ines  through  segments  judged  by  the  operator 
to  be  part  of  the  “true"  baseline.  The  operator  then 
judges  w  here  the  melting  cure  e  liegins  and  ends  by  choos¬ 
ing  the  points  where  significant  deviation  from  the  two 
ImesiK'cur.  East.  1 MPU RF' calculates  the  lineconnec''"” 
these  points  and  then  calculates  the  area  based  on  the 
difference  between  the  data  and  the  calculated  line. 
These  lines  and  reference  points  are  shown  Figure  3. 


A/D  units  or  Heat  Flow  _ _ A/D  Units  or  Heot  Flow 


Temperature 


Fi, idlin'  •/  Typic  al  mcliiip’  tcinpcrature  cU-tcrmimuiou  for  indium. 
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I M PI' R[: calculates  1  he aiea b\  peitonnini:a"ruii- 
uiiig  '  mteural  ol  the  dila  ( A/D  units )  minus  the  Ixisehne 
using  the  1/3  Simpson's  rule  (AS'i'ST  lhS7),  This 
method  assumes  data  that  are  equall_\  spacerl  by  unit 
increments,  IMPLJRf:  scales  the  result  by  multiple  ing 
by  the  time  increment  between  data  points.  The  result¬ 
ing  area  (A/D  units  multiplied  by  time)  should  be 
independent  of  the  heating  rate. 

The  area  of  the  fusion  peak  will  be  liirectly  propor¬ 
tional  to  the  energy  of  the  change  per  unit  mass  AA/ 
(mcal/mg)  and  the  sample  mass  nt  (mg).  It  will  be  in¬ 
versely  proportional  to  the  range  setting  of  the  DSC. 
The  range  is  the  device's  adjustable  maximum  power 
output  (Perkin-Elmer  1 984 ).  Ttius,  the  heat  of  fusion,  on 
a  mass  basis,  for  a  compound  is 

C  A„„  /?.. 

A/y= — i  (7) 

m 

where  /?„  is  range  (mcal/s )  and  C  is  the  conversion  factor 
(inverse  A/D),  IMPURE  solves  eq  7  for  C  from  data 
obtained  during  the  melting  of  indium  with  AW  =  6.80 
mcal/mg  (ASTM  198,‘r), 

The  required  temperature  adjustment  for  the  DSC 
is  detennined  by  measuring  the  difference  between  the 
melting  temperature  of  indium  detennined  from  experi¬ 
mental  data  and  its  known  value.  429.78  K  (ASTM 
198.“)).  I'he  melting  temperature  from  the  data  is  taken 
to  be  the  intersection  of  the  linear  rise  region  of  the 
indium  melting  curve  (subjectively  determined  by  the 
operator)  with  th.e  baseline  (Fig.  4).  IMPURE  first 
calculates  the  temperature  at  this  intersection  and  then 
calculates  the  required  temperature  adjustment. 

IMPURE  stores  the  temperature  adjustment  con¬ 
stant  and  the  conversion  factor  C  for  future  reference. 
With  these  characteristic  parameters  of  the  DSC  deter¬ 
mined.  purity  measurements  are  then  conducted. 

Purity  determinutiun  from  DSC  data 

In  addition  to  determining  the  total  area  of  the 
fusion  curve,  partial  areas  must  be  calculated  to  use  in 
eq  and  6.  The  operator  subjectively  detcmiines  the 
zone  on  the  melting  curve  between  approximately  .SO'T 
melt  and  just  before  the  curve  decreases  from  linearity. 
This  zone  roughly  corresponds  to  the  linear  portion  of 
the  left  side  of  the  melting  curve.  IMPURE  then  subdi¬ 
vides  this  zone  into  equal  temperature  increments  and 
calculates  these  subareas. 

Equation  6  is  solved  by  multiple  linear  regression 
(ASY.ST  1987)  for  these  partial  areas,  and  the  corre¬ 
sponding  temperatures  and  optimal  values  for/f.  '/'|,and 
,Vs.  are  determined.  K  is  then  used  in  eq  .“)  to  check  for 
any  possible  discrepancies.  Note  that  eq  .3  and  6  use 
molar  latent  heat  A/,  and  not  energy  change  per  unit 


'I'able  1.  Optimum  sample  parameters  determined 
by  Hunter  and  Hlaine  ( 1984). 
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mass  .y//  during  the  transition.  The  molar  latent  heat  of 
lusion  is  obtained  from  the  data  by 


(■■'tot  +  ATlC  /?„ 

AT  =  A//  M  =  ^-7' - 1 - sL  M  . 


(8) 


Final  consideration  must  be  given  to  the  accuracy 
and  precision  of  DSC  measurements.  ASTM  standards 
proposed  by  Hunter  and  Blaine  (1984)  recommend 
optimum  values  of  sample  mass,  heating  rate  and  sam¬ 
pling  rate  for  computer  acquisition  of  impurity  data. 
These  conditions  for  an  impurity  greater  than  2  mol9f 
are  presented  in  Table  I .  In  addition  to  detennining  the 
optiniutn  parameters,  they  made  two  important  obser¬ 
vations.  First,  deviations  from  the  optimum  values 
result  in  underestimating  the  impurity  level.  Second, 
slight  variations  from  these  values  may  be  tolerated  but 
the  inaccuracies  thus  generated  are  cumulative.  If  de¬ 
viations  from  optimum  must  occur,  the  “true”  impurity 
will  be  larger  than  that  calculated,  and  care  must  be 
taken  to  maintain  the  remaining  parameters  at  their 
optimum  if  any  one  parameter  must  deviate. 


IMPURE 

The  computer  program  IMPURE  w  as  written  using 
version  2.0  of  the  ASYST  software  package.  ASYST 
version  2.0  is  for  use  with  the  IBM  AT  and  compatibles 
et|uipped  with  a  math  coprocessor  and  at  least  640  K  of 
memory.  A  commented  listing  of  the  IMPURE  program 
is  included  in  Appendix  A.  The  function  of  the  program 
is  to  collect  thennal  data  from  the  Perkin-Elmer  DSC- 
4  and  use  this  collected  data  to  determine  the  purity  of 
the  SARM  being  analyzed.  This  section  explains  the 
procedures  u.sed  to  analyze  each  SARM,  including  the 
operation  of  the  IMPURE  program. 


Preparation  of  sample 

Weigh  a  sample  of  1-3  mg  to  an  accuracy  of  0.01 
mg  into  an  aluminum  crucible  (Perkin-Elmer  Sample 
Kit  No.  219-0062).  Ilennetically  seal  the  crucible  to 
prevent  the  loss  of  mass  during  the  heating  proc-ss. 


DSC  calibration 

An  indium  sample  must  first  be  used  toc.ilibrate  the 
DSC  to  determine  the  temperature  correction  before 


I'able  2.  Molecular  \veij>hts  and  starting;  and  endin}>  temperatures  for  seven  munition 
standards  needed  fur  IMPl  RE. 
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each  run.  The  indium  sample  is  also  prepared  using  the 
method  described  above.  Place  the  indium  sample  in  the 
left  sample  holder  of  the  DSC.  In  the  right  sample  holder 
in  the  DSC,  place  an  empty  sealed  crucible  to  serve  as 
a  reference  pan. 

DSC  setup 

Use  the  ke)  pad  on  the  DSC  front  panel  to  .set  the 
minimum  and  ma.ximum  temperatures,  the  heat  rate  and 
the  cooling  rate.  See  Table  2  for  values  to  use.  The  same 
procedure  is  used  to  set  up  the  DSC  for  S ARM  analysis 
as  for  ctilibration. 

L  sing  the  ASYST  program  IMPLRE.DMO 

Intmi  the  DOS  prompt,  type  "IMPURE"  and  press 
the  "RETL'RN"  key.  The  ASYST  title  screen  should 
appetir  after  a  few  moments. 

l-olktw  the  instructions  until  the  ASYST  "OK” 
prompt  is  displayed.  Type  "LOAD  IMPURE.DMO" 
ami  press  "RETURN."  The  "OK”  prompt  will  be  re- 
ilisplayed  w  hen  the  program  has  finished  loading.  Type 
"OO"  to  begin  the  program. 

Input  your  name  or  initials  and  be  sure  the  data  disk 
Is  in  Drive  A.  .A  menu  should  now  be  displayed  at  the 
bottom  of  the  display  screen. 

Select  '<EI>  DSC”  from  the  menu  an-;  enter  the 
appropriate  values  at  the  prompts.  When  ail  values  have 
been  cnteietl.  select  "<F-^>  HEAT”  f '  .m  the  displaycil 
menu. 

Start  the  strip  chart  recorder  attached  to  the  DSC. 
When  the  temperature  in  the  DSC  has  stabili^e^l,  enter 
a  I  /ero)  m  response  to  the  prompt  "GAIN  (0  =  l.X, 
I  -  .IX  ...I."  The  computer  will  obtain  some  initial 
baseline  data  and  then  trigger  the  DSC  to  begin  the 
heating  process  according  to  the  parameters  entered. 

fhe  Icngtii  o;  time  lequired  to  complete  one  heal 
me  c'.cic  sail  be  dctemiincd  i;y  dividing  the  ilitlerence 
between  the  maximum  and  minimum  temperatures  by  the 
heal  r.ile.  e  It.  I  1  .sS  Cto  I4X  Ci/2..s  C  per  mm  -  4  min. 


When  the  menu  is  redisplayed,  select  the  "<F2> 
COOL"  option  to  prepare  the  DSC  for  the  next  sample. 
Remove  the  sample  from  the  left  sample  holder  and 
discard  it.  Select  "<F1>  .MAIN  MENU"  to  return  to  the 
Main  Menu.  Now  select  "<F2>  FILE"  and  then  "<F2> 
Save  a  data  file”  to  save  the  raw  data.  Type  in  any  legal 
DOS  file  name  in  which  to  save  the  data.  Select  the 
"<FI0>  Main  .Menu”  option  after  the  data  have  been 
saved.  Another  sample  can  now  be  placed  into  the  left 
sample  holder  and  the  above  procedure  repeated. 

Data  analysis 

Once  all  the  samples  have  been  scanned  and  all  the 
raw  data  have  been  stored  on  the  data  disk,  it  is  time  to 
analyze  the  sample  data.  From  the  Main  Menu,  select 
"<F2>  FILE,”  then  select  the  "<FI>  Read  a  data  file” 
option. 

Retrieve  the  indium  sample  data  by  specifying  the 
file  name  used  to  store  these  data  earlier.  Select  ”<FI0> 
Main  .Menu”  to  return  to  the  Main  Menu. 

Select  "<F8>  Indium”  for  special  processing  of  the 
indium  data.  Select  the  "<F3>  Calculate  new  indium” 
option  from  this  menu.  A  plot  of  the  raw  tlata  will  be 
displayed  on  the  screen,  and  you  will  be  prompted  to 
enter  the  beginning  and  end  of  the  graph. 

Move  the  cursor  with  the  left  and  right  cursor  keys, 
and  press  the  "HOME”  key  to  mark  the  beginning  of  the 
graph.  Now  move  the  cursor  to  the  end  of  the  graph  and 
press  the  "HOME”  and  then  the  "DEL”  key  to  mark  the 
end  of  the  graph.  The  data  will  be  replotted  using  these 
new  end  points. 

Next  you  will  be  prompted  to  mark  the  beginning 
and  end  of  the  initial  baseline.  Again  using  the  cursor 
keys,  move  the  cursor  to  the  beginning  of  the  initial 
baseline  and  press  the  "HOME"  key  and  then  move  to 
the  end  of  the  initial  baseline  and  press  the  ''HO.MI-Ckey 
iollowed  by  the  "DliL"  key.  .A  line  xviil  be  drawn 
through  these  two  points  representing  the  initial  base¬ 
line. 
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Table  3.  Sample  summary  output  from  IMPURE. 


Date:  09/21/88  Tine:  17:28:04.80  Operator:  PBB 

Experiment  name:  2,6  DNT 
Experiment  number:  2 

Range  (mcal/sec):  1.000 
Heating  rate  (C/mln) :  2.S00 

Hlnlmum  temperature  (C) :  331.181 

Maximum  temperature  (C):  3S1.160 

Sampling  rate  (samples/sec) :  2.000 

Temperature  Increment  (K) :  .021 

Mass  of  sample  (mg):  2.0900 

Molecular  weight  (g/mol) :  182.140 

Total  area(no  correction  factor):  5322.667 
Maximum  heat  value  (mcal/sec):  .027 
Fraction  from  338.478  (K)  to  338.644  (K) 

Correction  factor  fromM.L.K:  749.843 
Correction  factor/total  area:  .141 

Coversion  factor  (area  cal/gm  mg/area  sec/mcal) :  2.44672E-3 

Tempurature  adjustment  (K) :  .970 

Slope  of  Indium  (AD/X) :  1135.206 

Total  heat  of  fuslon(cal/mole) :  1294.827 

Heat  of  fuslon(cal/gm) :  7.109 

Melting  point  of  pure  substance  from  M.L.R. ,  To  (K) :  338.586 
Melting  point  of  pure  substance  from  corrected  data.  To  (K):  338.586 
Freezing  point  depression  for  corrected  data;  -.015 

Mole  %  from  M  L.R. :  99.992 

Purity  (mole  %)  from  corrected  data:  99.992 


The  program  will  now  ask  for  the  beginning  and 
end  of  the  final  baseline.  These  points  should  be  marked 
in  the  same  manner  as  the  beginning  and  end  points  of 
the  initial  baseline. 

You  must  now  mark  where  the  two  lines  inter¬ 
sect  the  curve.  Again  use  the  cursor  keys  to  move  the 
cursor  to  the  point  where  the  initial  baseline  first 
intersects  the  curve,  i.e.  the  point  where  the  curve 
deviates  from  the  initial  baiseline.  Similarly  choose 
the  point  where  the  final  baseline  intersects  the  curve 
(big.  4).  bollow  the  directions  given  to  mark  the 
beginning  and  end  of  the  baseline.  An  "indium  cor¬ 
rection  factor"  will  be  ilisplayed.  Press  any  key  to 
cinitmue. 

Save  the  indiuni  file  to  disk.  Use  a  tlifferent  file 
name  than  the  one  useil  to  save  the  intiium  raw  data. 
When  this  has  been  completevl.  press  "<blO>  MAIN 
MbNf"'  to  return  to  the  Main  Menu. 

V.'nh  the  new  indium  value  calculated,  it  is  now 
time  to  analyze  the  sample  data.  Begin  by  selecting 


"<F2>  FILE"  from  the  Main  Menu,  then  select  the 
"<FI  >  Read  adata  file" option  from  the  file  menu.  Enter 
the  file  name  of  the  first  sample  data  file.  Return  to  the 
main  menu  using  "<F'10>  Main  Menu." 

Select  "<F3>  Screen  plot"  to  display  a  plot  of  the 
raw  data.  Then  select  "<F9>  Adjust"  to  adjust  the  raw 
data  using  the  indium  correction  value  calculated  ear¬ 
lier.  Select  “<F3>  Screen  plot"  again  and  notice  that  the 
upper  valueonthe.V-axisof  the  plot  has  increased.  Ifthe 
value  did  not  increase,  then  re-read  the  indium  file  and 
recalculate  the  correction  factor. 

Select  “<F4>  Lines"  and  follow  the  instructions 
given.  The  steps  that  follow  are  very  similar  to  the 
procedures  used  to  calculate  the  indium  standard. 

When  all  steps  have  been  completed,  press  "<F(i> 
.Summary"  to  print  a  summary  to  the  printer  (Table  3) 
and  then  press  "<F.‘i>  Plotter"  to  send  a  plot  of  the  dat;i 
and  the  iinail)us!ed  and  aiijustcd  fraction  data  to  the 
plotter  ( big.  b). 

Repeat  the  above  procedure  for  all  satnples. 
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APPENDIX  A:  LISTING  OF  THE  PROIJRAM  IMPl  RE 


The  main  routine,  titled  I MPURE.DMO, controls  ihei)porationo(  ilic  remaining  (ourrounnes.  f 'AIJHK  ATl-  .OMO, 
CURSOR. DM0,  DSC.DMO  and  PLOTPRIN.DMO. 


IMPURE. DM0 
:  IT! 


:  SET. PRINTER 
OUT>PRINTER 

27  EMIT  38  EMIT  108  EMIT  48  EMIT  69  EMIT  27  EMIT  38  EMIT  108  EMIT 
54  EMIT  54  EMIT  70  EMIT  27  EMIT  38  EMIT  97  EMIT  54  EMIT  76  EMIT 
CONSOLE 


:  RESET. PRINTER 

OUT>PRINTER  27  EMIT  69  EMIT  CONSOLE 


SERXES • 500 

\  This  program  will  collect  analog  data  through  the  KEITHLEY  Series  500 
\  data  collector,  then  plot  and  save  the  data  for  future  use. 

ECHO . OFF 


INTEGER 

SCALAR 

COUNTER 

SCALAR 

#DATA 

SCALAR 

MAXSIZE 

SCALAR 

GAINS 

scalar 

upper 

SCALAR 

ALL 

SCALAR 

GMIN 

SCALAR 

GMAX 

SCALAR 

OTHER. INC 

REAL 

SCALAR 

READ. RATE 

SCALAR 

TMIN 

SCALAR 

TMAX 

SCALAR 

TACT 

SCALAR 

TCUT 

SCALAR 

HRATE 

SCALAR 

CRATE 

SCALAR 

RANGE 

SCALAR 

XINC 

SCALAR 

XMAX 

scalar 

base 

scalar 

mass 

scalar 

mole 

scalar 

M 

scalar 

B 

scalar 

tot. area 

scalar 

C 

scalar 

TO 

sea  1  a  r 

X2 

scalar 

R 

scalar 

TOINT 

scalar 

FPD 

scalar 

convert 

scalar 

indm 

scalar 

indO 

integer 

DIM[  2 

]  ARRAY  LINE 

\  #  data  actually  collected 
\  /  maximum  amount  of  data  possible 

\  t  data  to  collect 

\  Sampling  rate  in  milliseconds 


\  Heating  rate  (K/min) 

\  Colling  rate  (K/min) 

\  Full  scale  range  (mcal/sec) 

\  Time  for  each  A/D  sample  (min) 

\  Average  of  isothermal  baseline 
\  Sample  mass  (mg) 

\  Sample  molecular  weight  (g/mol) 

\  slope  of  line  at  bottom  of  fusion  curve 
\  intercept  of  line  at  bottom  of  fusion  curve 
\  integrated  area  under  fusion  curve 
\  Correction  factor  from  M.L.R 
\  Fusion  temperature  (K)  from  M.L.R. 

\  Purity  from  M.L.R. 

\  Gas  constant 

\  Fusion  temperature  (K)  from  adjusted  data 
\  Freezing  point  depression  from  adjusted  data 
\  Area  units  to  calories 
\  Slope  of  melting  line  for  indium 
\  Temperature  adjustment  to  make  To  =  429.78  (K) 

POSITION  \  Buffer  for  plot  positions 


25  STRING  OP. NAME 
60  STRING  TITLE 
25  STRING  EXP# 

60  STRING  XLBL 
60  STRING  YLBL 


\  Operators  name 
\  Experiment  title 
\  Experiment  number 
\  X-axis  label 
\  Y-axis  label 


14  STRING  FILENAME 

15  STRING  LOG. DIR 
2  STRING  DSCF 

2  STRING  HEATF 
2  STRING  COOLF 


\  Name  of  data  file  for  storage 
\  Directory  of  data  diles 
\  signals  the  use  of  the  DSC 


2500  MAXSIZE 


\  Maximum  number  of  data  allowed 


TOKEN  VOLTS 
TOKEN  TEMPS 
token  fractions 
token  grunt 
token  HOLDIT 


\  Data  array  for  the  collection  buffer 
\  Temperatures  (K) 

\  Integrated  areas  of  sub-intervals 
\  General  purpose  TOKEN 


\  Windows  ‘ 

23  0  24  79  WINDOW  {BOTLINE} 

1  0  11  19  WINDOW  {SPECS} 


;  LOG. DIR. SET 

LOG. DIR  1  1  "SUB  "  :*.DAT"  "CAT  LOG. DIR  ":= 


:  OPT IONS. MENU 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL 
."  <F1>  DSC  <F2>  FILE  <F3>  Screen  plot  <F4>  Lines  <F5>  Plotter" 
CR  ."  <F6>  Summary  <F7>  Data  <F8>  Indium  <F9>  Adjust  <F10>  BYE" 


:  FILE. MENU 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL 
."  <F1>  Read  a  data  file  <F2>  Save  a  data  file  <F10>  Main  Menu  " 


:  write. FILE 

\  Word  for  the  storage  of  raw  data 
load. overlay  datafile. sov 
FILE. TEMP LATE 

3  COMMENTS 

INTEGER  DIM[  2  ]  SUBFILE 
real  dim[  6  ]  subfile 
REAL  DIM[  /DATA  }  SUBFILE 
REAL  DIM[  /DATA  ]  SUBFILE 

END 

{BOTLINE}  SCREEN. CLEAR  HOME 
."  Opening  file  "  FILENAME  "TYPE 
13  EMIT  FILENAME  DEFER>  FILE. CREATE 
{BOTLINE}  SCREEN. CLEAR  HOME 
."  Writting  file  "  FILENAME  "TYPE 
13  EMIT  FILENAME  DEFER>  FILE. OPEN 

TITLE  1  >COMMENT 

EXP/  2  >COMMENT 

OP. NAME  3  >COMMENT 

2  integer  ramp  equiv>  holdit 

2  HOLDIT  r  2  ]  :=  \  /  of  sets  of  data 

/DATA  HOLDIT  [  1  ]  :=  \  /  of  data 

1  SUBFILE  HOLDIT  ARRAY>FILE 

6  real  ramp  equiv>  holdit 
mass  holdit  [  1  ]  := 
mole  holdit  [  2  ]  := 
hrate  holdit  [  3  ]  := 
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range  holdit  [  4  ]  := 
xinc  holdit  [  5  ]  := 

base  holdit  [  6  ]  := 

2  SUBFILE  HOLDIT  ARRAY>FILE 

3  SUBFILE  TEMPS  ARRAY>FILE 

4  SUBFILE  VOLTS  ARRAY>FILE 

FILE. CLOSE 

ONERR:  {BOTLINE}  SCREEN. CLEAR  HOME  ."  Can't  open  file 

."  Press  any  key  to  continue." 
BELL  PCKEY  DROP 
7FILE.OPEN  IF  FILE. CLOSE  THEN 


READ. FILE. IN 
clear .tokens 

"  Y"  DSCF  ":= 

{BOTLINE}  SCREEN. CLEAR  HOME 
load. overlay  datafile. sov 
."  Opening  file  "  FILENAME  "TYPE 
13  EMIT  FILENAME  DEFER>  FILE. OPEN 

1  COMMENT>  TITLE  ":= 

2  COMMENT>  EXP#  ":= 

3  COMMENT>  OP. NAME  ":= 

2  integer  ramp  equiv>  holdit 
1  SUBFILE  HOLDIT  FILE>ARRAY 

HOLDIT  [  1  ]  /DATA  := 

/DATA  real  RAMP  EQUIV>  TEMPS 
/DATA  real  RAMP  EQUIV>  VOLTS 

6  real  ramp  equiv>  holdit 
2  subfile  holdit  file>array 
holdit  [  1  ]  mass 
holdit  (  2  ]  mole  := 
holdit  [  3  j  hrate  := 
holdit  [  4  ]  range  := 
holdit  (  5  ]  xinc  := 
holdit  [  6  ]  base  := 

3  SUBFILE  TEMPS  FILE>ARRAY 

4  SUBFILE  VOLTS  FILE>ARRAY 

FILE. CLOSE 

ONERR:  {BOTLINE}  SCREEN. CLEAR  HOME  ."  Can't  open  file 

."  Press  any  key  to  continue." 
BELL  PCKEY  DROP 
7FILE.0PEN  IF  FILE. CLOSE  THEN 


GET. FILENAME 

"  DOODY.DUM"  FILENAME  ":=  ."  Filename  please 

FILENAME  ":=  13  EMIT 


for  writting.  " 


for  reading.  " 


"  "INPUT 


OUT. FILE 


{DEF}  SCREEN. CLEAR  HOME  20  SPACES 
SAVING  DATA _ "  BELL  CR  CR  CR  CR 

\  LOG. DIR  DEFER>  DIR  CR  CR 

{BOTLINE}  ."  OUTPUT  "  SCREEN. CLEAR 
GET. FILENAME 

t 

:  output. data. file 
out. file 
write. file 
escape 


:  IN. FILE 

{DEF}  SCREEN. CLEAR  HOME  20  SPACES 

."  READING  DATA _ "  BELL  CR  CR  CR  CR 

\  LOG. DIR  DEFER>  DIR  CR  CR 

{BOTLINE}  ."  INPUT  "  SCREEN. CLEAR 
GET. FILENAME 


:  input. data. file 
in. file 
READ. FILE. IN 

TEMPS  [  1  1  TEMPS  [  #DATA  ]  MIN  TMIN  := 
TEMPS  {  1  ]  TEMPS  [  /DATA  ]  MAX  TMAX  := 
temps  1.0  *  equiv>  temps 
volts  1.0  *  equiv>  volts 
{DEF}  SCREEN. CLEAR 
ESCAPE 


\ 


INITIALIZE 
Clear .tokens 
"  N"  DSCF  " 
7  ascii"  symbol 
14  AXIS. COLOR 
15  VUPORT. COLOR 
1.9872  R  := 

-1  3  fix. format 


N"  COOLF  "  N"  HEATF  ":= 

15  LABEL. COLOR 

0  AXIS. COLOR  0  LABEL. COLOR  15  CURSOR.COLOR  0  COLOR 
\  cal/ (deg-mol) 


GRAPHICS. DISPLAY  pEF}  HOME  20  SPACES 
."  CRREL  Soil  Physics  Purity  program"  CR  CR  CR  CR 
15  SPACES  ."  Your  name  (or  initials)  please?  " 
"INPUT  OP. NAME  ":= 

"  A"  LOG. DIR  ";=■  CR  CR  CR  CR  10  SPACES 
. "  Make  sure  data  disk  is  in  drive  A  ! 2 ! 2  " 
cr  ."  <ret>  to  continue . " 


bell  bell 
/input 
LOG. DIR. SET 
SCREEN . CLEAR 


:  INPUT. A. FILE 

INPUT. DATA. FILE  FILE. MENU 


:  OUTPUT. A. FILE 

OUTPUT. DATA. FILE  FILE. MENU 


:  FILE. KEYS 

FI  FUNCTION. KEY. DOES 
F2  FUNCTION. KEY. DOES 
F3  FUNCTION. KEY. DOES 
F4  FUNCTION. KEY. DOES 
F5  FUNCTION . KEY . DOES 


INPUT. A. FILE 

OUTPUT. A. FILE 

NOP 

NOP 

NOP 
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F6  FUNCTION. KEY. DOES  NOP 
F7  FUNCTION . KEY . DOES  NOP 
F8  FUNCTION. KEY. DOES  NOP 
F9  FUNCTION. KEY. DOES  NOP 
FIO  FUNCTION . KEY . DOES  ESCAPE 


:  FILE. EM 

STORE . FUNCTION . KEYS 

FILE. MENU  FILE. KEYS  INTERPRET. KEYS 
ONESCAPE:  RESTORE. FUNCTION. KEYS  OPTIONS. MENU 


:  END. IT. ALL 

RESET. PRINTER  BYE 

’create. OVERLAY  CURSOR. DM0 
CREATE. OVERLAY  DSC. DM0 

:  LOAD. DSC 

clear . tokens 

LOAD. OVERLAY  DSC.AOV 

DSC 

JnATA  1  —  JfnATA  •  = 

volts  SUB[  1  ,  /DATA  ]  1.0  *  equiv>  volts 
temps  SUB[  1  ,  /DATA  ]  1.0  *  equiv>  temps 


CREATE . OVERLAY  PLOTPRINT . DM0 
:  PLOT.VU 

0  0  VUPORT.ORIG  1  1  VUPORT.SIZE 
.025  .008  TICK. SIZE  .5  .8  TICK. JUST 

HORIZONTAL  -.5  -1.2  8  LABEL. FORMAT 

VERTICAL  -1.2  .0  6  LABEL. FORMAT 

HORIZONTAL  GRID. ON  VERTICAL  GRID. ON 

1  5  AXIS. DIVISIONS  HORIZONTAL  LABEL. SCALE. OFF  VERTICAL  LABEL. SCALE. OFF 
HORIZONTAL  AXIS. FIT. Off 
VERTICAL  AXIS. FIT. Off 


:  right. half 

0.55  .2  vuport.orig 
0.45  .8  vuport.size 
HORIZONTAL  AXIS. FIT. On 
VERTICAL  AXIS. FIT. On 

.025  .008  TICK. SIZE  .5  .8  TICK. JUST 

HORIZONTAL  -.5-1.2  5  LABEL. FORMAT 

VERTICAL  -1.2  .0  8  LABEL. FORMAT 

HORIZONTAL  GRID. ON  VERTICAL  GRID. ON 

3  3  AXIS. DIVISIONS  HORIZONTAL  LABEL. SCALE. OFF  VERTICAL  LABEL . SCALE . OFF 

:  left. half 

.0  .2  vuport.orig 
.45  .8  vuport.size 
HORIZONTAL  AXIS. FIT. On 
VERTICAL  AXIS. FIT. On 

.025  .008  TICK. SIZE  .5  .8  TICK. JUST 

HORIZONTAL  -.5  -1.2  5  LABEL. FORMAT 

VERTICAL  -1.2  .0  8  LABEL. FORMAT 

HORIZONTAL  GRID. ON  VERTICAL  GRID. ON 

3  3  AXIS. DIVISIONS  HORIZONTAL  LABEL. SCALE. OFF  VERTICAL  LABEL. SCALE . OFF 
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OTHER. LINES 

load . over lay  waveops.sov 
STACK .  CLEIAR 

line . position  [  2  ]  line. position  [  1  ]  -  10  /  OTHER. INC  := 

{HOTLINE}  SCREEN.  CLEAR  INTEN.ON  HOME  cr  ."  COMPUTING . " 

other. inc  3  >  if 
10  upper  := 

else 

3  Other. inc  := 

line. position  [  2  ]  line. position  [  1  )  -  3  /  upper  := 

then 

upper  real  ramp  equiv>  fractions 
upper  1  +  1  do 

{HOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME 
stack. clear 

volts  sub[  gmin  ,  other. inc  I  *  line. position  [  1  ]  grain  -  +  ] 

temps  sub[  gmin  ,  other. inc  I  *  line . position  [  1  ]  gmin  -  +  ]  M  *  B  + 

integrate . data 

[  []size  ]  xinc  60.  /  INV  *  fractions  [  I  ]  ;= 

loop 

STACK . CLEAR 

upper  real  ramp  0.  *  1.0  + 

fractions  temps  sub[  line . position  [  1  ]  ,  upper  ]  / 

1.0  temps  sub[  line . position  [  1  ]  ,  upper  ]  / 
laminate  laminate  trans[  1,2]  equiv>  grunt 
LOAD. OVERLAY  MATFIT.SOV 
grunt  fractions  leastsq.multilin. fit 
dup  dup 

[  1  ]  -1.0  *  C  := 

[  2  ]  TO  := 

[  3  ]  X2  := 

TO  C  *  X2  -  mole  *  convert  *  range  *  mass  /  R  /  TO  /  TO  /  x2  ;= 

screen. clear 

vuport. clear 

right. half 

"  U"  symbol 

tot. area  fractions  / 

temps  sub(  line . position  [  1  ]  ,  upper  ]  xy. auto. plot 
left. half 
"  C"  symbol 

tot. area  C  +  fractions  C  +  / 

temps  su'^f  lire  .posit’ on  [  1  ]  ,  upper  ]  a'/  auto,  plot 
STACK  •  CLEIAR 

{HOTLINE}  SCREEN.  CLEAR  INTEN.ON  HOME  cr  ."  COMPUTING . " 

LOAD. OVERLAY  MATFIT.SOV 

tot. area  C  +  fractions  C  +  / 

temps  sub[  line . position  [  1  ]  ,  upper  ] 

1  LIJVSTSQ.  POLY.  FIT 
dup 

[  1  ]  fpd  := 

[  2  ]  TOINT  := 


CALCULATIONS 
4  COLOR 
solid 

TEMPS  [  LINE. POSITION  [  1  ]  ]  VOLTS  f  LINE. POSITION  fill 

POSITION 

TEMPS  [  LINE. POSITION  [  1  ]  ] 

dup 

M  *  B  + 

DRAW. TO 

TEMPS  [  LINE. POSITION  [  2  ]  ]  VOLTS  [  LINE . POSITION  [  2  ]  ] 

POSITION 


TEMPS  [  LINE. POSITION  [  2  ]  ] 
dup 

M  *  B  + 

DRAW . TO 
OTHER. LINES 


:  LOAD. CURSOR 

LOAD. OVERLAY  CURSOR. AOV 
CURSOR. POSITION 


:  LOOK. IT 

SCREEN. CLEAR  PLOT.VU  {BOTLINE}  SCREEN. CLEAR 
7  ascii"  symbol 
\  7  COLOR 

TEMPS  VOLTS  XY. AUTO. PLOT 


:  ADDITIONAL. LINES 

0  LINE. POSITION  :=  {BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL 
CR  . "  Move  cursor  to  choice  for  beginning  of  graph  and  push  HOME" 

CR  ."  followed  by  choice  for  end  of  graph  and  push  HOME  then  Delete" 

LOAD.  CURSOR  LINE .  POSITION  [  1  ]  GMIN  :=  LINE .  POSITION  [  2  ]  GMAX  :  = 
volts  sub[  gmin  ,  gmax  gmin  -  }  equiv>  volts 

temps  subi  gmin  ,  gmax  gmin  -  ]  eguiv>  temps 

look. it 

0  LINE. POSITION  :=  {BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL 
CR  ."  Move  cursor  to  beginning  of  initial  baseline  and  push  HOME" 

CR  ."  then  to  its  end  and  push  HOME  again,  followed  by  Delete" 

LOAD . CURSOR  STACK . CLEAR 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL  cr  ."  COMPUTING" 

LOAD. OVERLAY  MATFIT.SOV 

TEMPS  SUB(  LINE. POSITION  [  1  ]  ,  LINE. POSITION  [  2  ]  LINE . POSITION  [  1  ] 

VOLTS  SUB[  LINE.PO.'-^TION  (  1  ]  ,  LINE.  POSITION  [  2  ]  LINE.  POSITION  [  1  ] 

1  LEASTSQ. POLY. FIT 
LOAD. OVERLAY  POLY.SOV 
TEMPS  SWAP  POLY[X] 

TEMPS  SWAP  solid 

\  2  COLOR 

XY . DATA . PLOT 
temps  []size 

LINE. POSITION  :=  {BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL 
CR  ."  Move  cursor  to  beginning  of  final  baseline  and  push  HOME" 

CR  ."  then  to  its  end  and  push  HOME  again,  followed  by  Delete" 

LOAD . CURSOR  STACK . CLEAR 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL  cr  ."  COMPUTING . " 

LOAD. OVERLAY  MATFIT.SOV 

TEMPS  SUBt  LINE. POSITION  [  1  ]  ,  LINE . POSITION  [  2  ]  LINE . POSITION  [  1  ] 

VOLTS  SUB[  LINE. POSITION  [  1  ]  ,  LINE. POSITION  [  2  ]  LINE . POSITION  [  1  ] 

1  LEASTSQ. POLY. FIT 
LOAD. OVERLAY  POLY.SOV 
TEMPS  SWAP  POLY [ X ] 

TEMPS  SWAP  solid 

\  9  COLOR 

XY . DATA . PLOT 


0  LINE. POSITION  := 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL 

CR  ."  Move  cursor  to  first  baseline  and  curve  intersection  and  push  HOME" 
CR  ."  then  to  the  other  intersection  and  push  HOME  again," 
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. "  followed  by  Delete" 

LOAD. CURSOR  STACK. CLEAR 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL  cr  ."  COMPUTING 
line. position  [  1  ]  gnin  line. position  [  2  ]  gmax  := 
VOLTS  [  gmin  ]  volts  [  gmax  ]  - 
temps  [  gmin  ]  temps  [  gmax  ]  - 

/  M 

VOLTS  [  gmin  ]  temps  [  gmin  ]  M  *  - 
B 

stack. clear 

\  volts  temps  look.lt 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL  cr  ."  COMPUTING 
temps  sub[  gmin  ,  gmax  gmin  -  ] 
dup  M  *  B  + 
solid 
\  15  COLOR 

XY. DATA. PLOT 
stack. clear 

volts  sub[  gmin  ,  gmax  gmin  -  l  +  ] 
temps  sub[  gmin  ,  gmax  gmin  -  1  +  ] 

M  *  B  + 

load. overlay  waveops.sov 
integrate . data 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL 
[  fjsize  ]  xinc  60.  /  INV  *  tot. area  := 


:  purity. lines 

additional . lines 
0  LINE. POSITION  := 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL 
CR  ."  Move  cursor  to  the  region  where  fractions  are  calculated,  (1/10,2/3)" 
CR  ."  then  push  HOME  followed  by  Delete" 

LOAD . CURSOR  STACK . CLEAR 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL  cr  ."  COMPUTING . " 

CALCULATIONS 

\  10  COLOR 

OPTIONS. MENU 


:  indium. menu 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL 
."  <F1>  Read  a  indium  file  <F2>  Save  indium  file  " 

."  <F3>  Calculate  new  indium  " 

cr  ."  <F10>  Main  Menu  " 


:  indium. get 
in. file 

{BOTLINE}  SCREEN. CLEAR  HOME 
."  Opening  file  "  FILENAME  "TYPE 
load. overlay  datafile. sov 
13  EMIT  FILENAME  DEFER>  FILE. OPEN 
3  real  ramp  eguiv>  holdit 
1  subfile  holdit  file>array 
holdit  [  1  ]  convert  := 
holdit  [  2  ]  indm  := 
holdit  [  3  ]  indO  := 

FILE. CLOSE 
indium. menu 

ONERR:  {BOTLINE}  SCREEN. CLEAR  HOME  ."  Can't  open  file  for  reading.  " 

."  Press  any  key  to  continue." 

BELL  PCKEY  DROP 
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7FILE.0PEN  IF  FILE. CLOSE  THEN 


:  indium. sav 
out .file 

load. overlay  datafile. sov 
FILE. TEMPLATE 

real  dim[  3  ]  subfile 

END 


{HOTLINE}  SCREEN. CLEAR  HOME 
."  Opening  file  "  FILENAME  "TYPE 
13  EMIT  FILENAME  DEFER>  FILE. CREATE 
{HOTLINE}  SCREEN. CLEAR  HOME 
."  Writting  file  "  FILENAME  "TYPE 
13  EMIT  FILENAME  DEFER>  FILE. OPEN 

3  real  ramp  equiv>  holdit 
convert  holdit  [  1  ]  := 
indm  holdit  [  2  ]  := 
indO  holdit  [  3  ]  := 

1  SUHFILE  HOLDIT  ARRAY>FILE 

PILE. CLOSE 
indium. menu 

ONERR:  {HOTLINE}  SCREEN. CLEAR  HOME  ."  Can't  open  file  for  writting.  " 

."  Press  any  key  to  continue." 

HELL  PCKEY  DROP 

7FILE.0PEN  IF  FILE. CLOSE  THEN 


.•  INDIUM,  calc 
look . it 

additional . lines 

6.80  mass  *  tot. area  /  range  /  convert 
0  LINE. POSITION 

{HOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  HELL 
CR  ."  Move  cursor  to  the  beginning  and  end  of  linear  rise," 

CR  ."  then  push  HOME  followed  by  Delete" 

LOAD. CURSOR  STACK. CLEAR 

{HOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  cr  ."  COMPUTING . " 

LOAD. OVERLAY  MATFIT.SOV 

temps  sub[  line. position  [  1  ]  ,  line. position  {  2  ]  line. position  [  1  ]  -  ] 
volts  sub[  line. position  [  1  ]  ,  line. position  [  2  ]  line. position  [  1  j  -  ] 
1  LEASTSQ . POLY . FIT 
dup 

[  1  ]  indm  ;= 

[  2  ]  indO  :•- 
0  LINE. POSITION  := 

{HOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  HELL 
\  temps  sub[  gmin  ,  line. position  [  2  ]  gmin  -  ] 

\  dup 

\  indm  *  indO  + 

\  8  color 

\  solid 
\  xy. data. plot 

H  IndO  -  indm  M  -  / 
dup  dup  indm  *  indO  + 

\  9  color 

"  X"  symbol  position 
429.78  swap  -  indO  := 

{HOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  HELL 
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Indium  correction .  "  indO  . 

#input 

indium. sav 


:  indium. keys 


FI  FtJNCTION. 
F2  FUNCTION. 
F3  FUNCTION. 
F4  FUNCTION. 
F5  FUNCTION. 
F6  FUNCTION. 
F7  FUNCTION. 
F8  FUNCTION. 
F9  FUNCTION. 
FIO  FUNCTION 


KEY. DOES  indium. get 

KEY. DOES  indium. sav 

KEY. DOES  indium. calc 

KEY. DOES  NOP 

KEY. DOES  NOP 

KEY. DOES  NOP 

KEY. DOES  NOP 

KEY. DOES  NOP 

KEY. DOES  NOP 

.KEY. DOES  ESCAPE 


$ 

:  indium 
indium. menu 
store . f unct ion . keys 
indium. keys 
interpret . keys 

onescape:  restore. function. keys 
\  10  COLOR 
OPTIONS. MENU 


:  Adjust 
bell 

temps  indO  +  temps  := 
bell 


:  LOAD. PLOTTER 

LOAD. OVERLAY  PLOTPRINT . AOV 
screen. clear 
? PLOT. ROTATED  NOT 
IF  plot. rotate 
THEN 

data. plot 
corrected . data 
uncorrected . data 
ibm. graphics 
graphics .display 
options .menu 


:  LOAD. SUMMARY 

LOAD. OVERLAY  PLOTPRINT. AOV 
PRINT . SUMMARY 


:  LOAD. VIEW 

LOAD. OVERLAY  PLOTPRINT. AOV 
VIEW. DATA 


:  lookl.it 
look . it 
options . menu 


:  GO 
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GRAPHICS. DISPLAY  SCREEN. CLEAR 
SET. PRINTER  INITIALIZE  OPTIONS. MENU 
FI  FUNCTION . KEY . DOES  LoAD.DSC 
F2  FUNCTION. KEY. DOES  FILE. EM 
F3  FUNCTION. KEY. DOES  LOOKl.IT 
F4  FUNCTION. KEY. DOES  purity. LINES 
F5  FUNCTION. KEY. DOES  LOAD. PLOTTER 
F6  FUNCTION. KEY. DOES  LOAD. SUMMARY 
F7  FUNCTION. KEY. DOES  LOAD. VIEW 
F8  FUNCTION. KEY. DOES  INDIUM 
F9  FUNCTION. KEY. DOES  Adjust 
FIO  FUNCTION. KEY. DOES  END. IT. ALL 
INTERPRET. KEYS 


CALIBRATE. DM0 


:  CALIBRATE. MENU 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL 
.  <Fi>  Temperature  <F2>  Heat  Capacity  <F3>  Integrate  <F10>  Main  Menu 


:  TEMP. MENU 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL 
."  <F1>  Recall  calibration  <F2>  Create  calibration  <F10>  Main  Menu  " 


:  ALT. TEMPS 

MPS  [  1  ]  MPS  [  3  ]  -  TCORR  := 

MPS  [  2  ]  MPS  [  4  ]  -  TCORR  /  TCORR  := 

TEMPS  SUB[  1  ,  /DATA  ]  MPS  [  3  ]  -  TCORR  *  MPS  [  4  ]  + 
TEMPS  SUB[  1  ,  /DATA  ]  := 


:  RECALL. TEMP 

{DEF}  SCREEN. CLEAR  HOME  20  SPACES 

."  READING  STANDARDS _ "  BELL  CR  CR  CR  CR 

LOG. MPS  DEFER>  DIR  CR  CR 
{BOTLINE}  ."  Input  "  SCREEN. CLEAR 
GET. FILENAME 

{BOTLINE}  SCREEN. CLEAR  HOME 
."  Opening  file  "  FILENAME  "TYPE 
13  EMIT  FILENAME  DEFER>  FILE. OPEN 

1  SUBFILE  MPS  FILE>ARRAY 

FILE. CLOSE 

ONERR:  {BOTLINE}  SCREEN. CLEAR  HOME  ."  Can’t  open  file  for  reading.." 
."  Press  any  key  to  continue..." 

BELL  PCKEY  DROP 

7FILE.OPEN  IF  FILE. CLOSE  THEN 


;  STORE . TEMP 

{DEF}  SCREEN. CLEAR  HOME  BELL 

CR  CR  . "  Measured  melting  temperature  (K)  of  standard  1....  " 
/INPUT  MPS  f  1  ]  := 

CR  CR  ."  Actual  melting  temperature  (K)  of  standard  1....  " 
/INPUT  MPS  [  2  ]  := 

CR  CR  ."  Measured  melting  temperature  (K)  of  standard  2....  " 
/INPUT  MPS  [  3  ]  := 

CR  CR  ."  Actual  melting  temperature  (K)  of  standard  2....  " 
/INPUT  MPS  [  4  ]  := 

{DEF}  SCREEN. CLEAR  HOME  20  SPACES 

."  SAVING  STANDARDS _ "  BELL  CP,  CR  CR  CR 

LOG. MPS  DEFER>  DIR  CR  CR 
{BOTLINE}  ."  Output  "  SCREEN.CLEAR 
GET. FILENAME 

FILE. TEMPLATE 

REAL  DIM[  4  ]  SUBFILE 


END 


{BOTLINE}  SCREEN. CLEAR  HOME 

Opening  file  "  FILENAME  "TYPE 
13  EMIT  FILENAME  DEFER>  FILE. CREATE 
{BOTLINE}  SCREEN. CLEAR  HOME 
."  Writting  file  "  FILENAME  "TYPE 
13  EMIT  FILENAME  DEFER>  FILE. OPEN 

1  SUBFILE  MPS  ARRAY>FILE 

FILE. CLOSE 

ONERR:  {BOTLINE}  SCREEN. CLEAR  HOME  Can't  open  file  for  writting.. 
."  Press  any  key  to  continue..." 

BELL  PCKEY  DROP 

7FILE.OPEN  IF  FILE. CLOSE  THEN 


RECALL . A . TEMP 
RECALL. TEMP 
ALT. TEMPS 
TEMP . MENU 


STORE. A. TEMP 
STORE . TEMP 
ALT. TEMPS 
TEMP . MENU 


CALIBRATE. TEMP 
BEGIN 

TEMP. MENU 

PCKEY 

CASE 


59 

OF 

RECALL. A. TEMP 

ENDOF 

60 

OF 

STORE. A. TEMP 

ENDOF 

61 

OF 

NOP 

ENDOF 

62 

OF 

NOP 

ENDOF 

63 

OF 

NOP 

ENDOF 

64 

OF 

NOP 

ENDOF 

65 

OF 

NOP 

ENDOF 

66 

OF 

NOP 

ENDOF 

67 

OF 

NOP 

ENDOF 

68 

OF 

ESCAPE 

ENDOF 

ENDCASE 

AGAIN 

ONESCAPE:  NOP  CALIBRATE. MENU 


HEAT. CAPACITY 

"  Heat  Capacity  (J/gK)"  YLBL  ":= 
-5.0  273 . 15  +  TCUT  := 

100.  ADEP  := 

150.  ADSTN  := 

13.3025  GSTN  := 

25.3125  GEP  ;= 

25.2423  GSTNP  := 


#DATA  1  +  1  DO 

TEMPS  [  I  ]  TDUT  >  IF 

TEMPS  [  I  ]  3.  **  -7.0824E-7  *  CpSTN  := 

TEMPS  [  I  ]  2.  **  8.3177E-5  *  CpSTN  -  CpSTN  := 

TEMPS  (  I  ]  3.1269  *  4.2161  SWAP  -  CpSTN  +  CpSTN 

THEN 

TEMPS  [  I  1  TOUT  <=  IF 

0.0078  TEMPS  [  I  ]  *  2.1158  +  CpSTN  := 

THEN 

TEMPS  [  I  ]  2.  **  3.0172E-6  CpAL  := 

TEMPS  [  I  ]  8.8320E-4  *  0.8837  +  CpAL  -  CpAL  := 

GSTNP  GEP  -  CpAL  *  KCp  := 

GSTN  CpSTN  *  KCp  +  KCp  := 

ADSTN  ADEP  -  KCp  /  KCp  := 

KCp  GSTN  *  CpSTN  *  DSTN  := 

GSMP  GEP  -  CpAL  *  KCp  *  DSMP  ; - 
VOLTS  [  I  ]  ADEP  -  DSMP  -  DSMP  := 

GSTN  GSMP  /  DSMP  *  DSTN  /  CpSTN  »  VOLTS  [  I  ]  ;  = 


LOOP 


INTEGRATE . ALL . DATA 

."  A  REALLY  GREAT  OPTION . SOON  TO  APPEAR 


CALIBRATE. KEYS 

FI  FUNCTION. 
F2  FUNCTION. 
F3  FUNCTION. 
F4  FUNCTION. 
F5  FUNCTION. 
F6  FUNCTION. 
F7  FUNCTION. 
F8  FUNCTION. 
F9  FUNCTION. 


KEY. DOES  CALIBRATE. TEMP 

KEY. DOES  HEAT. CAPACITY 

KEY. DOES  INTEGRATE. ALL. DATA 

KEY. DOES  NOP 

KEY. DOES  NOP 

KEY. DOES  NOP 

KEY. DOES  NOP 

KEY. DOES  NOP 

KEY. DOES  NOP 


FIO  FUNCTION. KEY. DOES  ESCAPE 


CALIBRATE 

STORE . FUNCTION . KEYS 
CALI BRATE. MENU 
CALIBRATE. KEYS 
INTERPRET. KEYS 

ONESCAPE:  RESTORE . FUNCTION . KEYS  OPTIONS. MENU 
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CURSOR. DM0 


INTEGER  SCALAR  CURING 
SCALAR  POSING 
scalar  tempinc 

:  RIGHT 

STACK . CLEAR 

posinc  curinc  +  posinc  := 

temps  []size  posinc  <=  if  temps  []size  posinc  :=  then 
temps  [  posinc  ]  volts  [  posinc  ] 

POSITION 
STACK. CLEAR 

:  LEFT 

STACK . CLEAR 

posinc  curinc  -  posinc  := 

posinc  1  <=  if  1  posinc  :=  then 

temps  [  posinc  ]  volts  [  posinc  ] 

POSITION 
STACK. CLEAR 

:  JUMPS 

STACK. CLEAR 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL 

CR  ."  CURSOR  movement  increment . " 

/INPUT  CURINC  := 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL 
STACK . CLEAR 

•  POS. ARRAY 

STACK . CLEAR 

posinc  LINE. POSITION  [  tempinc  ]  := 

8  COLOR 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL 
CR  X  =  "  temps  [  POSINC  ]  . 

Y  =  "  volts  [  POSINC  ]  . 

.  f*  I  »  »  posinc  . 
tempinc  1  +  tempinc  := 

STACK. CLEAR 
7  COLOR 
SThCK. CLEAR 


:  CURSOR. POSITION 
STACK. CLEAR 
179  ascii"  symbol 
1  POSINC  := 

1  OHIINC  :  = 

1  tempinc  := 


temps  [ 

1  ] 

volts  [  1  ] 

position 

BEGIN 

PCKEY 

CASE 

77 

OF 

RIGHT 

ENDOF 

75 

OF 

LEFT 

ENDOF 

73 

OF 

jxmps 

ENDOF 

83 

OF 

EXIT 

ENDOF 

71 

OF 

POS . ARRAY 

ENDOF 

ENDCASE 

AGAIN 

STACK. CLEAR 


DSC . DM0 


\  1400  KEY. DELAY  := 

INTEGER  SCALAR  SLOT . LOCATION 
9  SLOT. LOCATION  := 

0  0  A/D. TEMPLATE  DSC.CHNL 

50  READ. RATE  :=  \  A  default  setting  of  sampling  rate 

:  DIO. MENU 

{BOTLINE}  SCREEN. CLEAR  INTEN.ON  HOME  BELL 

."  <F1>  MAIN  MENU  <F2>  COOL  <F3>  HEAT  <F4>  HOLD" 


:  SERIES. 500. CONVERSION. DELAY 
8.0  *  4.77  / 

CONVERSION. DELAY 


:  DIO. OUT 

SERIES. 500  SLOT. LOCATION 
K500.CMDA  POKE 
SLOT. LOCATION 
K500.CMDB  POKE 


:  HOLD 

6  1  DIO. OUT 
1000  MSEC. DELAY 

7  1  DIO. OUT 
DIO. MENU 


:  COOL 

NORMAL. DISPLAY 
SCREEN. CLEAR 

3  1  DIO. OUT 
500  MSEC. DELAY 
7  1  DIO. OUT 
DIO. MENU 


:  HEAT. IT 

"  Y"  HEATF  ":= 

TMAX  TMIN  -  KRATE  /  XINC  *  1  +  ALL  := 

ALL  MAXSICr  >  IF 
BEGIN 

SCREEN . CLEAR 
{DEF}  SCREEN. CLEAR 
HOME 
CR  CR  CR 

."  Number  of  data  collected  must  be  less  than"  MAXSIZE  . 

CR  CR 

. "  Present  sample  number  is"  ALL  . 

CR  CR 

."  New  sampling  rate  of  A/D  converter ... (sample/second)  " 
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/INPUT  XINC  ;= 

1.  XINC  /  1000  *  READ. RATE  := 

XINC  60.  *  XINC  :=  \  SECONDS  PER  A/D  TO  MINUTES  PER  A/D 

TMAX  TMIN  -  HRATE  /  XINC  *  1  +  ALL  := 

ALL  MAXSIZE  <= 

UNTIL 

THEN 


HEAT 

HEAT. IT 
SCREEN. CLEAR 
{BOTLINE}  SCREEN. CLEAR 
0  GAINS  := 

Gain  (0=1X,  1=2X,  2=5X,  3=10X)  " 

/INPUT  GAINS  := 

SYNC. ERROR. OFF 

10  integer  ramp  becomes>  volts 
DSC.CHNL  A/D. INIT 
volts  template. buffer 
1000  sync. period 
dsc.chnl  gains  a/d.gain 
dsc.chnl  a/d.init 

home  ."  Collecting  isothermal  baseline  data . " 

begin 

synchronize 
a/d. in>array 
?buffer. full 
until 

volts  8192  -  1.0  * 

[Jsize  swap  []sum  swap  /  base  := 
stack. clear 

clear . template . buffers 

all  INTEGER  RAMP  becomes>  VOLTS 

DSC.CHNL  A/D.INIT 

VOLTS  TEMPLATE. BUFFER 

READ. RATE 

SYNC. PERIOD 

DSC.CHNL  GAINS  A/D.GAIN 
DSC.CHNL  A/D.INIT 

HOME  ."  Collecting  data,  type  any  key  to  stop  early . " 

5  1  DIO. OUT 
500  MSEC. DELAY 
7  1  DIO. OUT 

BEGIN 

SYNCHRONIZE 
A/D. IN>ARRAY 

ALL  7BUFFER. INDEX  <=  ?KEY  OR  \  Check  if  enough  data  is  collected 
UNTIL 

HOLD 

7BUFFER. INDEX  1  -  ALL  := 

CLEAR . TEMPLATE . BUFFERS 
VOLTS  []SIZE  /DATA  .= 

volts  8192  -  1.0  *  base  -  equiv>  volts 

/DATA  real  RAMP  tmax  tmin  -  /data  /  *  tmin  +  equiv>  TEMPS 
OUTPUT. DATA. FILE 
DIO. MENU 
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DSC. KEYS 

FI  FUNCTION. KEY. DOES  ESCAPE 
F2  FUNCTION . KEY . DOES  COOL 
F3  FUNCTION. KEY. DOES  HEAT 
F4  FUNCTION. KEY. DOES  HOLD 
F5  FUNCTION. KEY. DOES  NOP 
F6  FUNCTION. KEY. DOES  NOP 
F7  FUNCTION. KEY. DOES  NOP 
F8  FUNCTION. KEY. DOES  NOP 
F9  FUNCTION. KEY. DOES  NOP 
FIO  FUNCTION. KEY. DOES  NOP 


DSC 

"  Y"  DSCF 

{DEF}  SCREEN. CLEAR  HOME  BELL 

.  •*  Title  of  experiment?  (name  for  data  set)  "  "INPUT  TITLE  ":=  CR  CR 
."  Experiment  identification  number?  "  "INPUT  EXP#  ":=  CR  CR 
"  Temperature  (K) "  XLBL  ":= 

"  A/D  Value"  YLBL  "= 

CR  CR  ."  Range . (mcal/sec)  " 

/INPUT  RANGE  := 

20.0  RANGE  := 

."  Range  =  "  RANGE  . 

CR  CR  ."  T  MIN . (Kelvin)  " 

/INPUT  TMIN  := 

CR  CR  ."  T  MAX . (Kelvin)  " 

/INPUT  TMAX  ;  = 

CR  CR  ."  HEAT  RATE . (K/min)  " 

/INPUT  HRATE  := 

CR  CR  ."  COOL  RATE . (K/min)  " 

/INPUT  CRATE  ;= 

CR  CR  ."  Sampling  rate  of  A/D  converter. .. (sample/second)  " 

/INPUT  XINC  := 

1.  XINC  /  1000  *  READ. RATE  := 

XINC  60.  *  XINC  :*  \  SECONDS  PER  A/D  TO  MINUTES  PER  A/D 

cr  cr  ."  molecular  mass  (g/mol)  " 

/input  mole 

CR  CR  ."  Mass  of  sample. ... (mg)  " 

/INPUT  mass  ;= 

SCREEN . CLEAR 
STORE . FUNCTION . KEYS 
DIO. MENU 
DSC. KEYS 
INTERPRET. KEYS 

ONESCAPE:  RESTORE. FUNCTION. KEYS  OPTIONS. MENU 
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PLOTPRIN . DMO 


:  PLOTTER. LABEL 
NORMAL. COORDS 

0.05  YLBL  "LEN  2.  /  0.0175  *  0.6  SWAP  - 
90  LABEL. DIR 
YLBL  LABEL 

XLBL  "LEN  2.  /  0.0175  *  .6  SWAP  - 
.03  POSITION  0  LABEL. DIR 
XLBL  LABEL 


:  base. line. curve 

{botline}  ."  base-line" 
stack .clear 

temps  sub[  gmin  ,  gmax  gmin  -  ] 
dup 

M  *  B  + 

3  COLOR 
XY. DATA. PLOT 


:  limit. line 

{botline}  ."  limit  lines" 

4  color 

temps  [  line. position  [  1  ]  ] 
dup  dup 
m  *  b  + 
position 

volts  [  line. position  [  1  ]  ] 
draw. to 

temps  [  line. position  [  2  ]  ] 
duo  dup 
m  *  b  + 
position 

volts  [  line. position  [  2  ]  ] 
draw. to 

t 

:  data. key 

normal. coords 

.7  .85  POSITION  0  LABEL. DIR 

"  Mole%(MLR) 

x2  1.  swap  -  100.  *  "cat 
LABEL 

.7  .8  POSITION  0  LABEL. DIR 

"  Mole%(LS) 

tot. area  C  +  convert  *  range  *  mass 

R  /  tOint  /  toint  / 

fpd  *  1.0  +  100  *  "."  "cat 

label 

.7  .75  POSITION  0  LABEL. DIR 

If  TO:"  to  "."  "cat 

LABEL 


:  data.it 

-1  3  fix. format 
HP7475 

PLOTTER. DEFAULTS 

stack . clear 

7.65  10.0  PLOTTER. SIZE 

3  3  AXIS. DIVISIONS 

vertical  -1.2  0  4  label. format 

horizontal  -.5  -1.2  3  label. format 


POSITION 


/  mole  * 


HORIZONTAL  AXIS. FIT. On 
VERTICAL  AXIS. FIT. On 
1  AXIS. COLOR 

1  LABEL. COLOR 

.09  .5  VUPORT.ORIG 
.99  .9  VUPORT.SIZE 

SOLID 

TEMPS 

VOLTS 

2  COLOR 

XY . AUTO . PLOT 
{BOTLINE}  SCREEN. CLEAR 
base . 1 ine . curve 
limit. line 
"  A/D"  ylbl 

"  Temperature  (K) "  xlbl  ":= 

PLOTTER. LABEL 

TITLE  "LEN  2.  /  0.0175  *  .6  SWAP  -  .2  + 
,975  POSITION  0  LABEL. DIR 
TITLE  LABEL 
data. key 


;  data. plot 

{BOTLINE}  SCREEN. CLEAR 

."  <cr>  when  plotter  is  ready  ..."  BELL 

PCKEY  13  <> 

IF  OPTIONS. MENU 
THEN 

data. it 

onerr : 

data. it 


:  eguat .key 

normal. coords 

.7  .8  POSITION  0  LABEL.  DIR 

"  F.P.D.  -  "  fpd  "." 

"cat 

LABEL 

.7  .7  position  0  label. dir 
"  To  =  "  toint  "cat 
label 


;  corrected.it 

-1  3  fix. format 

HP7475 

PLOTTER . defaults 
7,65  10.0  PLOTTER. SIZE 
.58  ,05  VUPORT.ORIG 
.5  .4  VUPORT.SIZE 

2  2  AXIS. DIVISIONS 

HORIZONTAL  AXIS. FIT. ON 

VERTICAL  AXIS. FIT. ON 

vertical  -1.2  0  8  label. format 

horizontal  -.6  -1.2  4  label. format 

1  AXIS. COLOR 

1  LABEL. COLOR 


j 


stack. clear 


\  0.0  tot. area  fractions  c  +  /  []inax  horizontal  world. set 

\  temps  sub[  line . position  [  1  ]  ,  upper  ] 

\  []MIN/MAX  VERTICAL  WORLD. SET 

\  XY. AXIS. PLOT 

"  C"  symbol 

tot. area  c  +  fractions  c  +  / 

temps  sub[  line . position  [  1  ]  ,  upper  ] 

xy. AUTO. Plot 

3  COLOR 

solid 

\  2  real  ramp  equiv>  hcldit 

\  tot. area  fractions  c  +  /  []max  holdit  (  1  ]  := 

\  0.0  holdit  [  2  ]  := 

\  HOLDIT  dup  fpd  *  tOint  + 

TOT. AREA  C  +  FRACTIONS  C  +  /  DUP  FPD  *  TOINT  + 

XY . DATA. PLOT 

"  Temperature  (K) "  ylbl  ":= 

"  1/Fraction"  xlbl  ":= 

"  Adjusted"  title  ":= 

PLOTTER. LABEL 

TITLE  "LEN  2.  /  0.0175  *  .6  SWAP  - 
.976  POSITION  0  LABEL. DIR 
TITLE  LABEL 
\  equat.key 


:  corrected . data 
corrected . it 

onerr:  corrected.it 


:  uncorrected.it 

-1  3  fix. format 

HP7475 

PLOTTER. DEFAULTS 
7.65  10.0  PLOTTER. SIZE 
.09  .05  VUPORT.ORIG 
.5  .4  VUPORT.SIZE 

2  2  AXIS. DIVISIONS 

HORIZONTAL  AXIS. FIT. ON 

VERTICAL  AXIS. FIT. On 

vertical  -1.2  0  8  label. format 

horizontal  -.6  -1.2  4  label. format 

1  AXIS. COLOR 

1  LABEL. COLOR 
stack . clear 

\  0.0  tot. area  fractions  /  []max  horizontal  world. set 

"  U"  symbol 
tot. area  fractions  / 

temps  sub[  line. position  [  1  ]  ,  upper  ] 

XY . AUTO . PLOT 

2  COLOR 

"  Uncorrected"  title  ":= 

PLOTTER . LABEL 

TITLE  "LEN  2.  /  0.0175  *  .6  SWAP  - 
.975  POSITION  0  LABEL. DIR 
TITLE  LABEL 

I 

:  uncorrected . data 
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J 


uncorrected. it 


onerr:  uncorrected.it 


:  PRINT. THE. SUMMARY 

{BOTLINE}  SCREEN. CLEAR 

-1  3  fix. format 

35  spaces  ."  PURITY  ANALYSIS"  cr  cr 

10  SPACES  ."  Date:  "  .DATE  5  SPACES  ."  Time:  "  .TIME 
8  SPACES  ."  Operator:  "  OP. NAME  "TYPE  CR  CR 
10  SPACES  ."  Experiment  name:  "  TITLE  "TYPE  CR 

10  SPACES  ."  Experiment  number:  "  EXP#  "TYPE  CR  CR 

10  SPACES  ."  Range  (mcal/sec) :  "  RANGE  .  CR 

10  SPACES  ."  Heating  rate  (C/min) :  "  HRATE  .  CR 

10  SPACES  . "  Minimum  temperature  (K) :  "  TMIN  .  CR 

10  SPACES  ."  Maximum  temperature  (K) :  "  TMAX  .  CR 

10  SPACES  ."  Sampling  rate  (samples/sec):  "  XINC  60  /  .  CR 

10  spaces  ."  Temperature  increment  (K) :  "  tmax  tmin  -  #data  /  .  cr  cr 

-1  4  fix. format 

10  spaces  ."  Mass  of  sample  (mg):  "  mass  .  cr 
-1  3  fix. format 

10  spaces  ."  Molecular  weight  (g/mol) :  "  mole  .  cr  cr 

10  spaces  ."  Total  area(no  correction  factor):  "  tot. area  .  cr 
10  spaces  ."  Maximum  heat  value  (mcal/sec):  " 
volts  sub[  gmin  ,  gmax  gmin  -  ] 

[]max  8192  /  range  *  .  cr 

10  spaces  ."  Fraction  from  "  temps  [  line. position  [  1  ]  ]  . 

."  (i;)  to  "  temps  [  line. position  (  2  )  ]  .  ."  (K)  "cr  cr 

10  spaces  Correction  factor  from  M.L.R:  "  c  .  cr 

10  spaces  ."  Correction  factor/total  area:  "  c  tot. area  /  .  cr 

10  spaces  ."  Coversion  factor  (area  cal/gm  mg/area  sec/mcal) :  " 

-15  SCI. FORMAT 

convert  .  cr 
-1  3  FIX. FORMAT 

10  spaces  ."  Tempurature  adjustment  (K) :  "  indO  .  cr 
10  spaces  Slope  of  indium  (AD/K) :  "  indm  .  cr  cr 

10  spaces  ."  Total  heat  of  fusion (cal/mole) :  " 

tot. area  C  convert  *  range  *  mass  /  MOLE  *  .  cr 
10  spaces  ."  Heat  of  fusion (cal/gm) :  " 

tot. area  C  +  convert  *  range  *  mass  /  .  cr 
10  spaces  Melting  point  of  pure  substance  from  M.L.R. ,  To  (K) :  "  TO  .  cr 
10  spaces  ."  Melting  point  of  pure  substance  from  corrected  data,  To  (K)  :  " 
toint  .  cr 

10  spaces  ."  Freezing  point  depression  for  corrected  data:  "  fpd  .  cr  cr 
stack .clear 

10  spaces  ."  Mole  %  from  M.L.R.:  "  x2  1.  swap  -  100.  *  .  cr 
10  spaces  ."  Purity  (mole  %)  from  corrected  data:  " 
tot. area  C  +  convert  *  range  *  mass  /  mole  * 

R  /  toint  /  toint  / 
fpd  *  1.0  +  100  *  .  cr  cr 

XLEL  "TYPE  8  SPACES  YLBL  "TYPE 
CR  CR  10  4  SCI. FORMAT 
#DATA  1+1 
DO 

VOLTS  [  I  ] 

TEMPS  [  I  ] 

20  SPACES  .  8  SPACES  .  CR 

LOOP 


\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 
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10  spaces  . " 


:  PRINT .  SUMMARY 

OUT>PRINTER  CONSOLE. OFF  {DEF}  CR  CR  CR  CR  \  OPEN  LINE  TO  PRINTER 
PRINT . THE . SUMMARY 
12  EMIT 

\  "  A:M"  FILENAME  "CAT  DEFER>  OUT>FILE 

\  CONSOLE. OFF 

\  PRINT. THE. SUMMARY 

\  OUT>FILE. CLOSE 

CONSOLE  OPTIONS. MENU 


:  VIEW. DATA 

GRAPHICS . DISPLAY 
{DEF}  SCREEN. CLEAR  HOME 
-1  3  fix. format 

21  SPACES  XLBL  "TYPE  14  SPACES  YLBL  "TYPE  CR 
/DATA  1+1 
DO 

VOLTS  [  I  ] 

TEMPS  [  I  ] 

20  SPACES  .  8  SPACES  .  CR 

I  22  MODULO  0  =  IF 

{HOTLINE}  SCREEN  C^EAR 

."  type  any  ’  -o  continue . " 

PCKEY  ?DROP  P 

{DEF}  SCP"  -LEAR  HOME 

21  SPACE.-i  :.i-BL  "TYPE  14  SPACES  YLBL  "TYPE  CR 
THEN 
LOOP 

{HOTLINE}  SCR -EN. CLEAR 

."  type  any  key  to  continue . " 

PCKEY  ?DROT  DROP 
{DEF}  SCR.:.EN. CLEAR  HOME 
OPTIONS . MENU 


33 


REPORT  DOCUMENTATION  PAGE 


Form  Approved 
OMB  No.  0704-0188 


Public  reporting  burden  tor  this  collection  ol  information  is  estimated  to  average  1  hour  per  response,  including  the  time  for  reviewing  instructions,  searching  existing  data  sources,  gathering  and 
maintaining  the  data  needed,  and  completing  and  reviewing  the  collection  of  information  Send  comments  regarding  this  burden  estimate  or  any  other  aspea  of  this  collection  of  information, 
including  suggestion  for  reducing  this  Durden,  to  Washington  Headquarters  Services.  Directorate  for  Information  Operations  and  Reports,  1 2l  6  Jefferson  Davis  Highway,  Suite  1204,  Arimgion 
VA  22202-4302.  and  to  the  Office  of  Management  and  Budget,  Papenwork  Reduction  Project  (0704-0188).  Washington.  DC  20503 


1 .  AGENCY  USE  ONLY  (Leave  blank) 


4.  TITLE  AND  SUBTITLE 


2.  REPORT  DATE 

August  1991 


3.  REPORT  TYPE  AND  DATES  COVERED 


Operators  Manual  for  Determining  Mole  Percent  Purity 
Using  IMPURE 


6  AUTHORS 

Dean  Pidgeon  and  Patrick  B.  Black 


7  PERFORMING  ORGANIZATION  NAME(S)  AND  ADDRESS(ES) 

U.S,  Army  Cold  Regions  Research  and  Engineering  Laboratoiy 

72  Lyme  Road 

Hanover.  N.H.  0,i755-1290 


8.  PERFORMING  ORGANIZATION 
REPORT  NUMBER 

Special  Report  91-11 


9  SPONSORING  MONITORING  AGENCY  NAME(S)  AND  ADDRESS(ES) 

L'.S.  Amiy  Toxic  anil  Hazardous  Materials  Agency 
Aberdeen  Proving  Ground,  Maryland 


10.  SPONSORING/MONITORING 
AGENCY  REPORT  NUMBER 

CETHA-TE-CR-91043 


12a,  DISTRIBUTION  AVAILABILITY  STATEMENT 


Approved  for  public  release;  distribution  is  unlimited. 
Available  from  NTIS.  Springfield,  Virginia  22161. 


13  ABSTRACT  (/Wax/mum  ZOO  ivords) 

1  his  report  presents  the  laboratoty  procedures  and  operation  of  the  computer  program  IMPURE,  which  allows  the  operator  to 
measure  the  mole  percent  purity  of  Standard  Analytical  Reference  Materials  (SARMs).  Melting  point  temperature,  freezing 
point  depression  and  heat  of  fusion  are  measured  by  differential  scanning  calorimetry  (DSC).  These  data  are  then  used  in  van't 
Holfs  equation  to  detennine  molar  purity.  IMPURE  was  written  to  control  the  operation  of  the  DSC  and  the  analyses  of  the 
collected  data  accordini!  to  American  Societv  of  Testing  and  Materials  (ASTM)  standards. 


14  SUBJECT  TERMS 


Differential  scanning  calorimetry  .Standard  analytical  reference  materials 
.Mole  percent  purity 


15  NUMBER  OF  PAGES 

V) 


16  PRICE  CODE 


17  security  CLASSIFICATION 
OF  REPORT 

UNCLASSIFIED 


NSN  7540  01  280-5500 


18  security  CLASSIFICATION 
OF  THIS  PAGE 

UNCLASSIFIED 


19  SECURITY  CLASSIFICATION 
OF  ABSTRACT 

UNf'LASSIFIED 


20  LIMITATION  OF  ABSTRACT 


Standard  Form  298  (Rev  2-891 

PresenDed  by  ANSI  Std  Z39-’8 
298  102 


